home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00025_print icon.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  463 b   |  21 lines

  1. property ancestor
  2. global gDBTextVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic button"), buttonName, castName, xSprite, xLoc, me)
  6.   return me
  7. end
  8.  
  9. on performFunction me
  10.   tell the stage
  11.     playSFX(5)
  12.   end tell
  13.   MyObj = getaProp(gDBTextVarList, GetObjProp())
  14.   print(MyObj)
  15. end
  16.  
  17. on buttonLoc me, size
  18.   set the loc of sprite the pChannel of me to getAt([me.pStageLoc, point(563, 18)], size)
  19.   return me
  20. end
  21.